home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibtscr4.arc / DECPCLUG.SCR < prev    next >
Encoding:
Text File  |  1986-01-08  |  512 b   |  25 lines
  1. PARAM TE=2
  2. PARAM MO=17
  3. CLEAR   
  4. MESSAGE "***** DIALING DECPCLUG FIDO *****"
  5. DIAL "9"
  6. IF NOT CONNECTED
  7.    MESSAGE         "***** RE-DIALING DECPCLUG FIDO *****"
  8.    HANGUP
  9.    REDIAL
  10. ENDIF
  11. delay 50
  12. CLEAR
  13. STEXT "|~|"
  14. WAITSTRING "Your FIRST name:"
  15. STEXT "    |"          
  16. WAITSTRING "name:"
  17. STEXT "      |"        
  18. WAITSTRING "right? (y,n)"   
  19. STEXT "y|"              
  20. WAITSTRING "Password:"      
  21. STEXT "    |"
  22. IF CONNECTED
  23.    EXIT
  24. ENDIF   
  25.